home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / print / 24hershy.zip / HRGE_R.GSF < prev    next >
Text File  |  1991-05-16  |  13KB  |  214 lines

  1. %!
  2. % Common definitions for the Hershey fonts.
  3.  
  4. /MakeHersheyFont where
  5.  { pop 80 string
  6.     { currentfile 1 index readline pop
  7.        (%END) eq { exit } if
  8.     } loop pop
  9.  } if
  10.  
  11. userdict begin
  12. /HersheyBuildDict 10 dict def
  13.  
  14. /BuildHersheyChar {
  15.     exch begin
  16.         PenWidth setlinewidth
  17.         Encoding exch get
  18.         dup CharData exch known not { pop /.notdef } if
  19.         CharData exch get
  20.     end
  21.     /cd exch def
  22.  
  23.     /llx 99 def /lly 99 def /urx -99 def /ury -99 def
  24.     true
  25.  
  26.     cd 2 get {
  27.         exch {
  28.             dup 32 eq {
  29.                 pop true
  30.             } {
  31.                 82 sub cd 0 get sub
  32.  
  33.                 dup llx lt {
  34.                     dup /llx exch def
  35.                 } if
  36.                 dup urx gt {
  37.                     dup /urx exch def
  38.                 } if
  39.                 pop false
  40.             } ifelse
  41.         } {
  42.             neg 91 add
  43.  
  44.             dup lly lt {
  45.                 dup /lly exch def
  46.             } if
  47.             dup ury gt {
  48.                 dup /ury exch def
  49.             } if
  50.             pop true
  51.         } ifelse
  52.     } forall pop
  53.  
  54.     cd 1 get cd 0 get sub 0 llx 1 sub lly 1 sub urx 1 add ury 1 add
  55.     setcachedevice
  56.  
  57.     /domove true def
  58.     true
  59.  
  60.     cd 2 get {
  61.         exch {
  62.             dup 32 eq {
  63.                 pop true
  64.                 /domove true def
  65.             } {
  66.                 82 sub cd 0 get sub
  67.                 false
  68.             } ifelse
  69.         } {
  70.             neg 91 add
  71.             domove {
  72.                 moveto
  73.                 /domove false def
  74.             } {
  75.                 lineto
  76.             } ifelse
  77.             true
  78.         } ifelse
  79.     } forall pop
  80.  
  81.     1 setmiterlimit 1 setlinejoin 1 setlinecap
  82.     stroke
  83. } bind def
  84.  
  85. /MakeHersheyFont {
  86.     10 dict dup begin
  87.     exch /ItalicAngle exch def
  88.     exch /PenWidth exch def
  89.     exch /FontName exch def
  90.     exch /CharData exch def
  91.  
  92.     /FontType 3 def
  93.     /FontMatrix 
  94.         [1 33 div
  95.         0
  96.         ItalicAngle neg dup sin exch cos div 33 div
  97.         1 33 div
  98.         0 0] def
  99.     /Encoding StandardEncoding def
  100.     /BuildChar {HersheyBuildDict begin BuildHersheyChar end} def
  101.     /FontBBox [-10 -10 30 30] def
  102.  
  103.     FontName end exch definefont
  104. } bind def
  105. end        % userdict
  106. %END
  107.  
  108. 150 dict dup begin
  109. /hyphen [-6 6 (NRVR)] def
  110. /bar [-4 4 (RBRb)] def
  111. /periodcentered [-5 5 (RQQRRSSRRQ)] def
  112. /numbersign [-10 11 (SBLb YBRb LOZO KUYU)] def
  113. /currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
  114. /bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
  115. /slash [-7 7 (K^YF)] def
  116. /backslash [-7 7 (KFY^)] def
  117. /tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
  118. /bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
  119. /bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
  120. /braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
  121. /braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  122. /less [-12 12 (ZIJRZ[)] def
  123. /greater [-12 12 (JIZRJ[)] def
  124. /asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
  125. /asciicircum [-11 11 (JTROZT JTRPZT)] def
  126. /percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
  127. /at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
  128. /section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
  129. /dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
  130. /daggerdbl [-8 8 (RFQHRJSHRF RFRT RPQRSVRXQVSRRP RTRb R^Q`RbS`R^ LMNNPMNLLM LMXM TMVNXMVLTM L[N\\P[NZL[ L[X[ T[V\\X[VZT[)] def
  131. /A [-11 11 (LINGPFRFSGZW[X]X QGRHYXZZ[YYX NGPGQHXXYZZ[[[]X LMMLOKPKQL PLPM MLOLPN G[IYKXNXPY JYNYOZ G[JZMZN[PY RJLX NSVS)] def
  132. /B [-12 12 (HHJFMFOGQF KGNG HHJGLHOHQF MKLLKNKOIOHPHRIQKQKW LMLU IPLP MKMTLVKW RIQJPLPU QKQS RIRRQTPU RIXFZG[I[KYMUO XGZIZK VGXHYIYLWN WNZP[R[X YPZRZW WNXOYQYX J[MYPXTXWY LZOYTYVZ J[NZSZU[WYYX[X UOUX URYR UUYU)] def
  133. /C [-13 11 (NGLHJJILHOHSIVJXMZP[S[VZXYZW[U JKINISKWNYQZTZWY NGLIKKJNJRKUNXQYTYWXYW[U PJPV QJQT RIRSQUPV PJRIUFWGYGZF TGVHXH SHUIWIYHZF WIWX)] def
  134. /D [-11 12 (IFWFYGZIZX KGWGYIYW IFJGLHWHXIXX OKNLMNMOKOJPJRKQMQMV NMNT KPNP OKOSNUMV I[LYOXSXVY KZNYSYUZ I[MZRZT[VYXXZX RHRX RMTNVNXM RSTRVRXS)] def
  135. /E [-11 11 (IHKFMFOGQF LGNG IHKGMHOHQF NKMLLNLOJOIPIRJQLQLW MMMU JPMP NKNTMVLW QMRJSHTGVFXF[G THVGXGZH RJSIUHWHYI[G QURRSPTOVOXP TPVPWQ RRSQUQVRXP K[NYRXWX[Y MZPYWYZZ K[OZVZY[[Y QMQX)] def
  136. /F [-12 11 (JHLFOFQGSF MGPG JHLGNHQHSF PKOLNNNOLOKPKRLQNQNV OMOT LPOP PKPSOUNV SJSYRZQZMXKXIYG[ TJTX TPXP PZOZMYJY UIUOXO XQUQUWTYP[N[LZJZG[ SJUIXFZG\\G]F WGYH[H VHXIZI\\H]F XIXW)] def
  137. /G [-13 12 (NGLHJJILHOHRIUJWLYNZQ[U[XZZX[V[SZQYPWOUO JKINISJV NGLIKKJNJSKVLXNZ YXZWZSYQ U[WZXYYWYSXQWPUO PJPW QJQU RIRTQVPW PJRIUFWGYGZF TGVHXH SHUIWIYHZF YHUOU[ USYS UVYV)] def
  138. /H [-12 12 (HHJFMFOGQF KGNG HHJGLHOHQF MKLLKNKOIOHPHRIQKQKW LMLU IPLP MKMTLVKW J[MYPXSXUY LZOYRYTZ J[NZQZS[UY RIQJPLPU QKQS RIRRQTPU RITGVFXFZG WGXGYH TGVGXIZG UOWNYLZM[P[TZXX[ XMYNZPZUYX WNXNYPYUX[ UOUY URYR UUYU)] def
  139. /I [-9 10 (LHNFQFTGVF OGSG LHNGQHTHVF SKRLQNQOOONPNROQQQQV RMRT OPRP SKSSRUQV YHWJVMVXUZSZOXMXKYI[ WKWW RZQZOYLY YHXJXVWXUZS[P[NZKZI[)] def
  140. /J [-10 10 (LHNFQFTGVF OGSG LHNGQHTHVF SKRLQNQOOONPNROQQQQV RMRT OPRP SKSSRUQV YHWJVMVXUZ WKWW YHXJXVWXUZR[O[LZJXJVKULUMVLWKW JVMV)] def
  141. /K [-12 12 (HHJFMFOGQF KGNG HHJGLHOHQF MKLLKNKOIOHPHRIQKQKW LMLU IPLP MKMTLVKW J[MYPXSXUY LZNYRYTZ J[NZQZS[UY RIQJPLPU QKQS RIRRQTPU RITGVFXFZG WGXGYH TGVGXIZG UOXLYM[N WMYN[N [NYQWSUU WSYTZX[Z\\Z YVZZ WSXTYZZ[[[\\Z UOUY)] def
  142. /L [-11 11 (IHKFNFPGRF LGOG IHKGMHPHRF NKMLLNLOJOIPIRJQLQLW MMMU JPMP NKNTMVLW K[NYRXWX[Y MZPYWYZZ K[OZVZY[[Y SIRJQLQU RKRS SISRRTQU SIUGWFYF[G XGYGZH UGWGYI[G WGWX)] def
  143. /M [-14 14 (LJKKJMJOHOGPGRHQJQJU KLKS HPKP LJLRKTJU E[GYIXKXMYNYOX HYKYMZ E[GZJZL[M[NZOX LJPFTJTWUYVY PGSJSXRYSZTYSX PPSP NHOHRKROOO OQRQRXQYS[VYWX TJXF\\J\\W]Y^Y XG[J[X]Z XP[P VHWHZKZOWO WQZQZY\\[^Y OHOX WHWX)] def
  144. /N [-13 12 (GIIGKFMFOGQJVUXXYY MGOIPKVWYZ IGKGMHOKTVVYWZY[ VHXIZI\\H]F WGYH[H VHXFZG\\G]F KOIOHPHRIQKQ IPKP G[IYKXNXPY JYMYOZ G[JZMZN[PY KGKX YIY[ RLSMUNWNYM KTMSQSST)] def
  145. /O [-13 13 (NFLGJIIKHNHRIUJWLYNZQ[S[VZXYZW[U\\R\\N[KZIXGVFUGRIOJ JJIMISJV NFLHKJJMJSKVLXNZ ZV[S[MYIXH VZXXYVZSZMYKWHUG OJOW PJPU QJQTPVOW UGUZ UMWNXNZM USWRXRZS)] def
  146. /P [-10 12 (KFLGMIMOKOJPJRKQMQMYJ[MZMbO` MHNJN` KPNP KFMGNHOJO` OKRIVFZJZX VGYJYX THUHXKXY RXUXXY SYUYWZ RZTZV[XYZX RIR_ RMTNVNXM RSTRVRXS)] def
  147. /Q [-13 13 (NFLGJIIKHNHRIUJWLYNZP[T[VZXYZW[U\\R\\N[KZIXGVFUGRIOJ JJIMISJV NFLHKJJMJSKVLXNZ ZV[S[MYIXH VZXXYVZSZMYKWHUG OJOW PJPU QJQTPVOW UGUZ UMWNXNZM USWRXRZS P[QZRZT[X`Za[a T\\V_XaYa RZS[VaXbZb[a)] def
  148. /R [-12 12 (HHJFMFOGQF KGNG HHJGLHOHQF MKLLKNKOIOHPHRIQKQKW LMLU IPLP MKMTLVKW J[MYPXRXUY LZNYRYTZ J[NZQZS[UY RIQJPLPU QKQS RIRRQTPU RIUGWFYGZIZLYNXOTQRR WGXGYIYMXN UGWHXJXMWOTQ TQVRWSZX[Y\\Y WTYX[Z TQVSXYZ[\\Y)] def
  149. /S [-11 12 (UITHRGOF VHTG WGSFOFLGKHJJKLLMONWNYOZPZRYU KKLLOMXMZN[O[QZS KHKJLKOLYL[M\\O\\QYUU[ IOJPLQUQVRVSUU JQLRTRUS IOIPJRLSSSUTUU I[LYPXSXVY KZNYRYUZ I[MZRZU[ WGUISL RNPQ OSMUKVJVJUKV)] def
  150. /T [-13 11 (JJILHOHSIVKYMZP[S[VZXYZW[U ISJVLXNYQZTZWY JJIMIQJTLWNXQYTYWXYW[U HIIGKFOFUGYG[F PGTHXH HIIHKGNGTIWIYH[F SIRJPKPV QKQT RJRSQUPV WIWX)] def
  151. /U [-12 12 (HHJFLFOGQF KGNG HHJGMHOHQF KJJLIOISJVKXMZP[S[VZXYZ[\\Y JSKVNYQZTZ KJJNJQKTLVNXQYUYXX UIQJPLPV QKQT RJRSQUPV UIWHYFZG\\HZIZW[Y\\Y YIZHYGXHYIYX[Z WHXIXX UIUY UNXN URXR)] def
  152. /V [-11 12 (JFKGLILOJOIPIRJQLQLXJY LHMJMX JPMP NYQYSZ JFLGMHNJNXRXUY JYMYPZR[UYXXZX RJUIWHYFZG\\HZIZX YIZHYGXHYIYW WHXIXX RJRX RMTNVNXM RSTRVRXS)] def
  153. /W [-13 14 (HFIGJIJOHOGPGRHQJQJXHY JHKJKX HPKP LYNYPZ HFJGKHLJLXOXQY HYKYNZO[QYTXVYW[YY\\X OHRFTHTXWXYY RGSHSX OHQHRIRXQY WYXZ WHZF\\H\\X ZG[H[X WHYHZIZXYY OHOX WHWX ONRN ORRR WNZN WRZR)] def
  154. /X [-11 11 (HIJGLFNFOGWYXZZZ MGNHVYWZ JGLGMHUZV[X[ZZ\\X WFYG[G\\F WGXHZH VHWIYI[H\\F H[IYKXMXNY JYLYMZ H[IZKZM[ WFSO QRM[ LPPP SPXP)] def
  155. /Y [-11 12 (JFKGLILOJOIPIRJQLQLXJY LHMJMX JPMP NYQYSZ JFLGMHNJNXRXUY JYMYPZR[UYXX RJUIWHYFZG\\HZIZ^Y`WbUaQ`L` YIZHYGXHYIYY WHXIXXZ[ XaV`S` Y`V_P_L` RJRX RMTNVNXM RSTRVRXS)] def
  156. /Z [-10 10 (XGWIROOSMWJ[ VKNV ZFWJUNRRMXLZ JHLFOGUGZF KGOHSHWG JHNIRIVHXG LZNYRXVXZY MZQYUYYZ J[OZUZX[ZY MPQP TPXP)] def
  157. /a [-8 9 (PRNTMVMXNZP[RYUX MVNXOYQZ NTNVOXQYRY NPPPSOUNVMXOWPWXXYYY ONNOQO TOWOVNVYWZ MOOMPNROUPUYW[YY MORT)] def
  158. /b [-9 9 (LHMJMXKY NJMHNGNXQZ LHOFOXQYRZ KYMYOZP[RZUYWY OPROTNUMVNXOYOWPWY TNVOVX ROSOUPUY)] def
  159. /c [-8 6 (NONXLYMYOZP[ OOOYQZ POPXRYSYQZP[ NORNTMUNWOXO SNTOVO PORNTPVPXO)] def
  160. /d [-9 8 (RMPNMOMXKY NONXQZ RMOOOXQYRZ KYMYOZP[RZUYWY MHPFQIWOWY PINHOGPIVOVX MHUPUY)] def
  161. /e [-8 6 (NONXLYMYOZP[ OOOYQZ POPXRYSYQZP[ NORNTMWQURPU SNVQ PORNUR)] def
  162. /